home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / file211.zip / BLOCK.PAS next >
Pascal/Delphi Source File  |  1993-04-07  |  1KB  |  31 lines
  1.  
  2.  
  3. { General definitions for all Searchlight block oriented files }
  4.  
  5.  
  6. type FileHeader = record      { header info on file }
  7.        version: word;              { version of unit that created file }
  8.        recsize: word;              { record size }
  9.        offset: longint;            { offset to 1st record }
  10.        nextfree: longint;          { next free record }
  11.      end;
  12.  
  13.      RecordHeader = record    { control header to records }
  14.        mark: byte;                 { FF to indicate deleted rec }
  15.        extra: byte;
  16.        next: longint;              { ptr to next free rec }
  17.      end;
  18.  
  19.      TreeRootType = record     { root info for tree/list type files }
  20.        treeroot: longint;      { root of tree }
  21.        listroot: longint;      { linked list root }
  22.        entries: longint;       { # of entries }
  23.      end;
  24.  
  25.      TreeLeafType = record     { leaf info for tree/list type files }
  26.        status: byte;           { 0=active, 255=deleted }
  27.        left,right: longint;    { pointers to child nodes }
  28.        last,next: longint;     { linked list ptrs }
  29.      end;
  30.  
  31.